; for CLISP

(load "high.lisp")

(ext:saveinitmem "high.bin"
		 :executable t
		 :quiet t
		 :norc t
		 :script nil
		 :init-function #'controller)